Annual Weekly Salary by NAICS

Author

Dean Hansen

Now we look at some data. This only covers measurements from 2001 to 2008.

p <-
  earnings_by_industry |> 
  filter(GEO == "Canada", EMPLOYEE_TYPE != "All employees", OVERTIME == "Excluding overtime") |> 
  group_by(YEAR) |> 
  slice_max(order_by = ANNUAL_WEEKLY_SALARY, n = 10) |> 
  ggplot(aes(x = YEAR, y = ANNUAL_WEEKLY_SALARY, colour = NAICS)) +
  geom_point() +
  geom_line() +
  theme(legend.position = "bottom")

ggplotly(p)